home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / faq-s.zip / VALID.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-03  |  1KB  |  52 lines
  1. (* The HAvok Quick sysOp validation program written by the Shocker.
  2. This Reads a Validrec from gentypes (a record) and writes what the user inputs
  3. to it...so if the dude types false shit he will get caught in the waitcall
  4. routine...so it should work...if not fuck yourself asshole *)
  5. Program Valid;
  6. uses dos,crt,gentypes;
  7. type validrec=record
  8. SysOp:ANYSTR;
  9. Board:ANYSTR;
  10. SERIAL:INTEGER;
  11. VALID:BOOLEAN;
  12. end;
  13. var
  14. a:validrec;
  15. f,d,c,r,g,h:string[255];
  16. s:text;
  17. Begin
  18. f:='The Shocker';
  19. d:='AfterShock';
  20. c:='Grim Reaper';
  21. r:='The Edge Of Sanity';
  22. g:='Louder Than Bombs';
  23. h:='The Seventh Sign';
  24.  
  25. clrscr;
  26. Writeln('Havok Quick SysOp Validation Utility - By Havok,INC 1990');
  27. Writeln('Written By - The Shocker                                ');
  28. Write('[SysOp Name]:');
  29. ReadLn(a.Sysop);
  30. if ( a.sysop=f) or (  a.SysOp=d ) or ( a.sysop=c ) then
  31. Write('[Board Name]:');
  32. readln(a.board);
  33. if (a.board=r) or
  34. ( a.board=g  ) or
  35. ( a.board=h )  then
  36. Write('[Enter Serial Number]:');
  37. Readln(a.serial);
  38. if (a.serial=666) or
  39. (a.serial=911) or (a.serial=1082) then begin
  40. a.Valid:=true;
  41. assign(s,'Register.Dat');
  42. rewrite(s);
  43. WriteLn(s,a.Sysop);
  44. WriteLN(s,a.Board);
  45. WriteLN(s,a.Serial);
  46. Close(s);
  47. end
  48. else
  49. a.valid:=false;
  50. WriteLN('The Info You Gave is False');
  51. Inline($CD21);
  52. end.